home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / ac174v13.zip / RSB3CHAT.MRG < prev    next >
Text File  |  1992-10-03  |  2KB  |  45 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.BAS to produce RBBSSUB3.NEW
  3. * RBBSSUB3.BAS:  Date 6-20-1992  Size 129071 bytes
  4. *          ANSIChat (c) 1992 by Richie Molinelli
  5. * ------------[ Created 10-01-1992 08:24:05 ]------------
  6. * REPLACING old line(s) by new
  7. 30610 ZKeyPressed$ = ""
  8. * ------[ first line different ]------
  9.       IF ZWasCM THEN _                                               ' CHAT174
  10.          IF (ZFunctionKey > 0 AND (ZFunctionKey =< 12)) OR _         ' CHAT174
  11.             (ZFunctionKey = 15) OR (ZFunctionKey > 17 AND (ZFunctionKey =< 22)) THEN _ ' CHAT174
  12.             EXIT SUB                                                 ' CHAT174
  13.       IF ZFunctionKey < 1 OR ZFunctionKey > 22 THEN _
  14.          GOTO 33970
  15.       IF ZFunctionKey < 10 AND (ZFunctionKey <> 8) THEN _
  16.          GOTO 30620
  17.       IF ZToggleOnly THEN _
  18.          ZSubParm = 1 : _
  19.          GOTO 33970
  20. * REPLACING old line(s) by new
  21. 33160 CALL UpdtCalr ("Sysop began chat",1)
  22.       ZPageStatus$ = ""
  23. * ------[ first line different ]------
  24.       IF ZANSITest = ZTrue OR ZWasGR > 1 THEN _                      ' CHAT174
  25.          CALL SysOpChat (2) _                                        ' CHAT174
  26.       ELSE _                                                         ' CHAT174
  27.          CALL SkipLine (1) : _                                       ' CHAT174
  28.          CALL QuickTPut1 ("Hi " + _
  29.               ZFirstName$ + _
  30.               ", this is " + _
  31.               ZSysopFirstName$ + _
  32.               " " + _
  33.               ZSysopLastName$ + _
  34.               ".  Sorry to break in to CHAT but..") : _              ' CHAT174
  35.               CALL TimeBack (1) : _                                  ' CHAT174
  36.               CALL SysopChat (1)                                     ' CHAT174
  37.       CALL TimeBack (2)
  38.       ZCommPortStack$ = CHR$(13)
  39.       GOTO 33155
  40. '
  41. '
  42. ' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
  43. '
  44. '
  45.